home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 05 / 4 / DISK0543.ZIP / ARCTRIG.BAS < prev    next >
BASIC Source File  |  1985-06-02  |  2KB  |  63 lines
  1. 10   CLS
  2. 20   KEY OFF
  3. 30   REM
  4. 40   PRINT : PRINT : PRINT
  5. 50   PRINT TAB(28) " A MATH (TRIG) PROGRAM"
  6. 60   PRINT : PRINT
  7. 70   PRINT TAB(22) "****** INVERSE TRIG FUNCTIONS ******"
  8. 80   PRINT : PRINT :
  9. 90   PRINT TAB(30) " BY CHRIS SPRATT"
  10. 100   PRINT :PRINT  TAB(32) "VICTORIA, B.C."
  11. 110   PRINT
  12. 120   PRINT TAB(34) "APR. 1985"
  13. 130   PRINT
  14. 140   PRINT : PRINT :  PRINT
  15. 150  GOSUB 580:
  16. 160   LOCATE 24,25
  17. 170   PRINT "PRESS ANY KEY TO CONTINUE"
  18. 180   B$ = INPUT$ (1)
  19. 190   REM
  20. 200   CLS : PRINT : PRINT : PRINT : PRINT
  21. 210   PIT = 3.141593# : PTT = 180!/ 3.141593#
  22. 220   REM
  23. 230  CLS
  24. 240  LOCATE 7,27
  25. 250  INPUT  " INPUT THE  NUMBER IN "; DS
  26. 260  CON0 = 1.570796305#
  27. 270  CON1 = -.2145988016#
  28. 280  CON2 = .0889789874#
  29. 290  CON3 = -.0501743046#
  30. 300  CON4 = .030891881#
  31. 310  CON5 = -.0170881256#
  32. 320  CON6 = .0066700901#
  33. 330  CON7 = -.0012624911#
  34. 340  DS7 = CON7*(DS*DS*DS*DS*DS*DS*DS)
  35. 350  DS6 = CON6*(DS*DS*DS*DS*DS*DS)
  36. 360  DS5 = CON5*(DS*DS*DS*DS*DS)
  37. 370  DS4 = CON4*(DS*DS*DS*DS)
  38. 380  DS3 = CON3*(DS*DS*DS)
  39. 390  DS2 = CON2*(DS*DS)
  40. 400  DS1 = CON1*DS
  41. 410  DS10 = CON0 +DS1 + DS2 + DS3 + DS4 + DS5 + DS6+ DS7
  42. 420  DS11 = SQR(1! - DS)
  43. 430  DSS = DS11*DS10
  44. 440  DSI= PIT - DSS
  45. 450  DSI =(DSI - DSS)/2
  46. 460  DSC = DSS
  47. 470  PRINT :PRINT :PRINT
  48. 480  PRINT TAB(20) "THE ARCOS VALUE OF " DS;"IN RADIANS IS ";DSC
  49. 490  PRINT :PRINT
  50. 500  PRINT TAB(20) "THE ARCSIN VALUE OF "DS;"IN RADIANS IS ";DSI
  51. 510  DDSC = DSC * PTT
  52. 520  DDSI = DSI * PTT
  53. 530  PRINT :PRINT
  54. 540  PRINT TAB(20) "THE ARCOS VALUE OF "DS;" IN DEGREES IS ";DDSC
  55. 550  PRINT :PRINT
  56. 560  PRINT TAB(20) "THE ARCSIN VALUE OF "DS;" IN DEGREES IS "; DDSI
  57. 570  END
  58. 580  PRINT
  59. 590  PRINT TAB(10)" THIS PROGRAM GIVES THE ARCOSINE AND ARCSINE INVERSE"
  60. 600  PRINT TAB(10)" TRIG FUNCTIONS THAT ARE NOT SUPPORTED IN BASIC."
  61. 610  PRINT TAB(10)" THE ARCTANGENT FUNCTION IS NOT GIVEN AS BASIC SUPPORTS THIS."
  62. 620  RETURN
  63.